perm filename DUMY[SCR,LCS] blob sn#456945 filedate 1979-07-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00003 ENDMK
CāŠ—;
PRECEDE;				< Preliminary things
FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
FUNC QQQ.FUN;
COMMON TOOT,CLAR;
*
CLAR 0 4;
P2 NU/.2;
P3 1 C7 C6;
P4 0;
P5 F1; P6 FU/11/12/13;
P8 0;
END;
 
TOOT ;
DUPL 1;
P4 .8;
P3 NO/C3/P3/D/P8;
P8 0;
END;

CLAR 1 4;
P8 MOVE/4 110 220;
END;